﻿Public Class GameFile
    Private _filename As String
    Private _action As String
    Private _size As Integer

    Public Property Filename() As String
        Get
            Return _filename
        End Get
        Set(ByVal value As String)
            _filename = value
        End Set
    End Property

    Public Property Action() As String
        Get
            Return _action
        End Get
        Set(ByVal value As String)
            _action = value
        End Set
    End Property

    Public Property Size() As Integer
        Get
            Return _size
        End Get
        Set(ByVal value As Integer)
            _size = value
        End Set
    End Property

End Class

Public Class GameFileCollection
    Inherits CollectionBase

    Public Sub Add(ByVal _file As GameFile)
        List.Add(_file)
    End Sub

    Default Public Overridable ReadOnly Property Item(ByVal index As Integer) As GameFile
        Get
            Return CType(Me.List(index), GameFile)
        End Get
    End Property
End Class
